wait(0.5)
local Sound = Instance.new("Sound",script)
Sound.SoundId = "rbxasset://sounds/electronicpingshort.wav"
Sound.Volume = 0.4
function Kill(Ch)
	if Ch and Ch.Parent and Ch:FindFirstChild("Vaporizing") == nil then
		Ch:BreakJoints()
		if Ch:FindFirstChildWhichIsA("Tool") then
			Ch:FindFirstChildWhichIsA("Tool"):Destroy()
		end
		local Tag = Instance.new("StringValue",Ch)
		Tag.Name = "Vaporizing"
		local D = Ch:GetDescendants()
		for i = 1,#D do
			if D[i]:IsA("BasePart") then
				D[i].Anchored = true
				D[i].Transparency = 0.95
				local SelectionBox = Instance.new("SelectionBox",D[i])
				SelectionBox.LineThickness = 0.05
				SelectionBox.Adornee = D[i]
				SelectionBox.Color = BrickColor.new("Really red")
				SelectionBox.SurfaceColor = BrickColor.new("Really red")
			end
		end
		for i = 1,17 do
			if Ch and Ch.Parent then
				if Sound and Sound.Parent then
					if i == 1 then
						Sound.PlaybackSpeed = 1.6
					elseif i == 2 then
						Sound.PlaybackSpeed = 0.8
					elseif i == 3 then
						Sound.PlaybackSpeed = 1.7
					elseif i == 4 then
						Sound.PlaybackSpeed = 0.85
					elseif i == 5 then
						Sound.PlaybackSpeed = 1.8
					elseif i == 6 then
						Sound.PlaybackSpeed = 0.9
					elseif i == 7 then
						Sound.PlaybackSpeed = 1.9
					elseif i == 8 then
						Sound.PlaybackSpeed = 0.95
					elseif i == 9 then
						Sound.PlaybackSpeed = 2
					elseif i == 10 then
						Sound.PlaybackSpeed = 1
					elseif i == 11 then
						Sound.PlaybackSpeed = 2.1
					elseif i == 12 then
						Sound.PlaybackSpeed = 1.05
					elseif i == 13 then
						Sound.PlaybackSpeed = 2.2
					elseif i == 14 then
						Sound.PlaybackSpeed = 1.1
					elseif i == 15 then
						Sound.PlaybackSpeed = 2.3
					elseif i == 16 then
						Sound.PlaybackSpeed = 1.15
					elseif i == 17 then
						Sound.PlaybackSpeed = 2.4
					end
					Sound.TimePosition = 0.15
					Sound:Play()
				end
				local Color = BrickColor.random()
				local D2 = Ch:GetDescendants()
				for i = 1,#D2 do
					if D2[i]:IsA("SelectionBox") then
						D2[i].Color = Color
						D2[i].SurfaceColor = Color
						if D2[i].SurfaceTransparency == 0.25 then
							D2[i].SurfaceTransparency = 1
						else
							D2[i].SurfaceTransparency = 0.25
						end
					end
				end
				wait(0.06)
			end
		end
		if Tag and Tag.Parent then
			game:GetService("Debris"):AddItem(Tag,0)
		end
		if Ch and Ch.Parent then
			game:GetService("Debris"):AddItem(Ch,0)
		end
	end
end
function DescendantAdded(item)
	if item and item.Parent and item.Parent:IsA("Humanoid") and item:IsA("ObjectValue") then
		local H = item.Parent
		wait()
		if item.Name == "creator" and item.Value == owner and H.Parent then
			H:UnequipTools()
			H.Health = 0
			Kill(H.Parent)
		end
	end
end
game.Workspace.DescendantAdded:connect(DescendantAdded)
local D = game.Workspace:GetDescendants()
for i = 1,#D do
	if D[i].Name == "Vaporizing" then
		D[i]:Destroy()
	else
		DescendantAdded(D[i])
	end
end